; Comal Junior disassembly ; Comments Hans Otten, 30 september 2022 - june 2023 ; ; ; Junior specific parts marked ****** JUNIOR **** ; Junior addresses (see Junior Book 4 Tape /Printer monitor listing PAD = $1A80 PA7 input TTY PADD = $1A81 PDB = $1A82 PB0 output TTY PB7 tape in/out PBDD = $1A83 System RAM area $1A69 - $1A7D ROM $0800 - $14FF tape/print monitor Zeropage usage $0000 - $000D $0067 - $0080 $00AF - $00CC Memory layout $2000 - $47FF Start at $3000 $AF $B0 contain end of program Junior Comal $2553 INPCH JSR $12AE 47FA OUTCH JSR $1334 47F5 CRLF JSR $11E8 LaoD/SAVE $28B0 to $28FC Break and Init $4248 to $4264 Memeory test at init $4195 LDY #$00 for $8000 end of RAM $4197 LDA #$80 Tables from $2000 2000: 6F 28 65 27 F8 2C 94 29 A3 2B 30 43 D8 2F E1 2B o(e'x,.)#+0CX/a+ 2010: DD 41 98 43 E4 41 DD 41 D4 41 24 42 31 42 40 42 ]A.CdA]ATA$B1B@B 2020: 1E 44 D3 46 C2 44 8A 44 C8 2E 65 44 E6 47 57 4C .DSFBD.DH.eDfGWL 2030: C8 2E DC 44 54 45 6C 42 6E 42 72 42 76 42 7F 42 H.\DTElBnBrBvB.B 2040: 4E 42 C8 2E 55 42 85 42 DB 29 CA 42 17 43 4F 44 NBH.UB.B[)JB.COD 2050: 33 44 61 42 02 46 3D 29 D3 46 C8 29 48 28 F4 03 3DaB.F=)SFH)H(t. 2060: 63 45 EA 45 DB 29 6B 28 EA 45 83 37 DE 28 AF 28 cEjE[)k(jE.7^(/( 2070: 12 33 7A 37 D4 2A 95 28 A4 26 69 26 9F 2B 48 26 .3z7T*.($&i&.+H& 2080: 90 3B 23 3C AF 3B 0A 00 DE 32 12 24 FF 32 3B 47 .;#.?A9.?j?q?:@.@ 20A0: 64 37 D6 36 C5 33 07 37 E5 36 46 36 5A 36 86 36 d7V6E3.7e6F6Z6.6 20B0: 91 36 79 C0 37 79 A9 37 7B 81 39 7B 68 3A 7D 96 .6y@7y)7{.9{h:}. 20C0: 3E 50 54 2F 46 4E 2F 7F CF 3E 7F 97 2E 64 64 2F >PT/FN/.O>...dd/ 20D0: 45 4E 44 AE 46 4F D2 45 4E 44 46 4F D2 44 41 54 END.FORENDFORDAT 20E0: C1 49 4E 50 55 D4 44 45 4C 45 54 C5 44 49 CD 52 AINPUTDELETEDIMR 20F0: 45 41 C4 52 45 4E 55 4D 42 45 D2 81 81 81 43 41 EADRENUMBER...CA 2100: 4C CC 81 81 81 45 4C 53 C5 81 45 4E 44 57 48 49 LL...ELSE.ENDWHI 2110: 4C C5 57 48 49 4C C5 44 4F BA 55 4E 54 49 CC 81 LEWHILEDO:UNTIL. 2120: 81 50 52 4F C3 45 58 45 43 BA 45 4E 44 50 52 4F .PROCEXEC:ENDPRO 2130: C3 81 81 81 81 81 81 3A BD 81 81 4C 41 42 45 4C C......:=..LABEL 2140: BA 4F 4E 45 52 D2 52 45 53 55 4D C5 52 45 50 45 :ONERRRESUMEREPE 2150: 41 D4 45 4E 44 49 C6 81 45 4E 44 43 41 53 C5 47 ATENDIF.ENDCASEG 2160: 4F 54 CF 52 55 CE 49 C6 52 45 53 54 4F 52 C5 81 OTORUNIFRESTORE. 2170: 43 41 53 C5 4F 54 48 45 52 57 49 53 C5 2F AF 53 CASEOTHERWISE//S 2180: 54 4F D0 57 48 45 CE 57 41 49 D4 4C 4F 41 C4 53 TOPWHENWAITLOADS 2190: 41 56 C5 44 45 C6 50 4F 4B C5 50 52 49 4E D4 43 AVEDEFPOKEPRINTC 21A0: 4F 4E D4 4C 49 53 D4 43 4C 45 41 D2 47 45 D4 4E ONTLISTCLEARGETN 21B0: 45 D7 54 41 42 A8 54 CF 46 CE 53 50 43 A8 54 48 EWTAB(TOFNSPC(TH 21C0: 45 CE 81 4E 4F D4 53 54 45 D0 AB AD AA AF DE 41 EN.NOTSTEP+-*/^A 21D0: 4E C4 4F D2 BE BD BC 53 47 CE 49 4E D4 41 42 D3 NDOR>=